if ~addlib('rexxreqtools.library',0,-30,0) then do
say 'rexxreqtools.library not available'
exit
end
end
scriptname = 'Samba Print Spooler v1.0 by Robert Wilson'
if right(spooldir,1) ~= '/' & right(spooldir,1) ~= ':' then do
call rtezrequest('The spooldir must end in ":" or "/"','_Sorry!',scriptname,'rtez_flags = ezreqf_centertext rt_reqpos = reqpos_centerscr rt_pubscrname = 'pubscreen)
exit
end
if setcmd = 1 then do
tooltypes.0 = 5
tooltypes.1 = 'DEVICE=parallel'
tooltypes.2 = 'FILE='spooldir'sps'
tooltypes.3 = 'SKIP=FALSE'
tooltypes.4 = 'MULTIPLE=TRUE'
tooltypes.5 = 'NOTIFY=FALSE'
if ~settooltypes(cmdpath,tooltypes) then call rtezrequest('Error unable to set CMD''s tooltypes)','_Hmmm',scriptname,'rtez_flags = ezreqf_centertext rt_reqpos = reqpos_centerscr rt_pubscrname = 'pubscreen)
if errorreq ~= 0 then call autoclose(stop,errorreq)
if answer = 0 then do
if rtezrequest('Are you sure that you want'|| '0A'x ||'to close Samba Print Spooler?','_Yes|_No',scriptname,'rtez_flags = ezreqf_centertext rt_reqpos = reqpos_centerscr rt_pubscrname = 'pubscreen) then exit